COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PROCEDURE KDATE(INTEGER K REFERENCE INTEGER D,M,Y)
C00003 ENDMK
C⊗;
PROCEDURE KDATE(INTEGER K; REFERENCE INTEGER D,M,Y);
   BEGIN
   K←K+23317;
   Y←(4*K-1)%1461; D←4*K-1-1461*Y;    comment obviously D is the remainder;
   D←(D+4)%4;
   M←(5*D-3)%153;  D←5*D-3-153*M;     comment  likewise;
   D←(D+5)%5;
   IF M<10 THEN M←M+3 ELSE   BEGIN M←M-9; Y←Y+1; END;
   Y←Y-64;
   END;